O6002(ROUGH SQUARE/ RECTANGLE)
(WORKS)

(FORMAT G65/G66 QTXYHVKRZEFS)
(Q = #17 - STEPOVER IN Z/ DOC)
(T = #20 - TOOL DIAMETER)
(X = #24 - FINAL SIZE -X- DIM.)
(Y = #25 - FINAL SIZE -Y- DIM.)
(H = #11 - STOCK WIDTH/ HORIZONTAL)
(V = #22 - STOCK HEIGHT/ VERTICAL)
(K = #6 - PART CORNER RAD./ SIDES)
(R = #18 - R PLANE)
(Z = #26 - Z START ZERO)
(E = #8 - END OF PROFILE IN Z)
(F = #9 - FEEDRATE)
(***********************************)

#100=ABS[#26]-ABS[#8]
#100=ABS[#100]
IF[[#26*#8]GE0]GOTO1
#100=ABS[#26]+ABS[#8]
N1#101=ROUND[#100/#17]
#102=#100/#101
IF[#102GT[#100/2]]GOTO100
#103=#5001
#104=[#103-.1]-[[#20/2]+[#11/2]]
#105=#5002
#106=[#105+.1]+[[#20/2]+[#22/2]]
#121=#103+[[#24/2]-#6]
#131=#105+[[#25/2]-#6]
#122=#103-[[#24/2]-#6]
#132=#105+[[#25/2]-#6]
#123=#103-[[#24/2]-#6]
#133=#105-[[#25/2]-#6]
#124=#103+[[#24/2]-#6]
#134=#105-[[#25/2]-#6]
#107=[#20/2]+#6
G0G90X#104Y#106
Z[#26+.1]
G1Z#26F#9
#108=#5003
WHILE[#101GE0]DO1
IF[#101LT0]GOTO10
#101=#101-1.
G1Z#108F#9
G41Y[#132+#107]
X#121
G02X[#121+#107]Y#131J-#107
G1Y#134
G02X#124Y[#134-#107]I-#107
G1X#123
G02X[#123-#107]Y#133J#107
G1Y#132
G02X#122Y[#132+#107]I#107
G03X[#122+.1]Y[[#132+#107]+.1]J.1
G0Z[#108+.1]
G40X#104
#108=#108-#102
END1
N10G0G90Z#18
X#103Y#105
M99
N100#3000= 1( Q VALUE TOO BIG )
